home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 March
/
EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso
/
earcd
/
util2
/
mgcclk11.lha
/
MCArchive
/
MagicClock-Install.eng
< prev
next >
Wrap
Text File
|
1995-08-13
|
5KB
|
214 lines
;
; MagicClock-Installer
;
(complete 0)
(welcome)
;output strings --------------------------------------------------------
(set WrongKick "\nYou must be using at least\nKickStart 2.04\nto use MagicClock")
(set WrongCPU "\nYou must have at least a\n68020 CPU\nto run MagicClock\n")
;-----------------------------------------------------------------------
(set currentver (/ (getversion "libs:iff.library") 65536))
(set currentrev (BITAND (getversion "libs:iff.library") 65535))
(set myver (/ (getversion "libs/iff.library") 65536))
(set myrev (BITAND (getversion "libs/iff.library") 65535))
;-----------------------------------------------------------------------
(if (< (/ (getversion) 65536) 37)
(abort WrongKick)
)
(set version (database "cpu"))
(if (> "68020" version)
(abort WrongCPU)
)
(complete 10)
(message
"\n\n\n"
"Welcome\n"
"to\n"
"MagicClock V1.1\n"
"Installation Script"
)
(set maindir
(askdir (prompt "Please select a drawer for installing MagicClock.\n"
"(a new drawer 'MagicClock' will be created)")
(help @askdir-help)
(default "sys:")
)
)
(copyfiles (source "extraicon/MagicClock.info")(dest maindir)(files))
(if (OR (patmatch "#?:" maindir)
(patmatch "#?/" maindir)
)
(makedir(set maindir (cat maindir "MagicClock")))
(makedir(set maindir (cat maindir "/MagicClock")))
)
(complete 20)
(set destdir
(askdir (prompt "Please select a drawer for the mainprogram of\n"
"MagicClock e.g. WBStartup / C ...")
(help @askdir-help)
(default maindir)
)
)
(complete 30)
(copyfiles
(prompt "\nCopying MagicClock to "destdir" ...\n")
(source "MagicClock")
(dest destdir)
(files)
)
(complete 40)
(if(askbool
(prompt "\n Do you want to copy MagicClock-Icon to\n"destdir" ?")
(help @askbool_help)
(default 1))
(copyfiles
(prompt "\nCopying the MagicClock-Icon...\n")
(source "MagicClock.info")
(dest maindir)
(files)
(infos)
)
)
(complete 50)
(if(askbool
(prompt "\n Do you want to install the polygon-editor ?")
(help @askbool_help)
(default 1))
((set destdirmc
(askdir (prompt "Please select drawer\nfor installing MC-Edit")
(help @askdir-help)
(default maindir)
)
)
(copyfiles
(prompt "\nCopying MC-Edit...\n")
(source "MC-Edit")
(dest destdirmc)
(files)
(infos)
))
)
(complete 60)
(if(askbool
(prompt "\n Do you want to install \n\niff.library Version "myver"."myrev"\n\n"
"Current installed Version "currentver"."currentrev"\n\n")
(help "Installs a newer version of iff.library to your Libs: drawer,"
"if you want.")
(default 1))
(copyfiles
(prompt "\nCopying the iff.library...\n")
(source "libs/iff.library")
(dest "Libs:")
(files)
)
)
(complete 70)
(if(askbool
(prompt "\n Do you want to install documentations ?\n")
(help "")
(default 1))
((set doc(askoptions
(prompt "Select which documentation(s) do you want to install.")
(help "")
(choices
;"German Textfile"
"German Guidefile"
; "English Textfile"
"English Guidefile"
"German MC-Edit Textfile"
"English MC-Edit Textfile")))
(set docdir
(askdir (prompt "Please select a drawer for the documentation(s)\n"
"(a new drawer won't be created)")
(help @askdir-help)
(default maindir)
)
)
(set n 0)
(while
(set docfile
(select n
"docs/MagicClock_deu.guide"
"docs/MagicClock_eng.guide"
"docs/MC-Edit.dok"
"docs/MC-Edit.doc"
""
)
)
(if (in doc n)
((if (= n 0)
(copyfiles
(source "docs/Registrierungsformular")
(dest docdir)
(files)
(infos))
)
(if (= n 1)
(copyfiles
(source "docs/Registration_form")
(dest docdir)
(files)
(infos))
)
(copyfiles
(source docfile)
(dest docdir)
(files)
(infos)))
)
(set n (+ n 1))
)
)
)
(complete 90)
(if(askbool
(prompt "\n Do you want to install some handfiles?")
(help @askbool_help)
(default 1))
(
(set dirdir
(askdir (prompt "Please select directory for installing hands.\nA drawer "
"'Hands' will be created.")
(help @askdir-help)
(default maindir)
)
)
(if (OR (patmatch "#?:" dirdir)
(patmatch "#?/" dirdir)
)
(makedir(set dirdir (cat dirdir "Hands")))
(makedir(set dirdir (cat dirdir "/Hands")))
)
(copyfiles
(source "hands")
(dest dirdir)
(all))
)
)
(set @default-dest maindir)
(complete 100)
(exit "Have fun with MagicClock.\n\nMagicClock is Shareware!\nSee guidefile for more informations.")